unit SortOrder;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TfmSortOrder = class(TForm)
    cmbOrder: TComboBox;
    btnOk: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    function OrderField: string;
  end;


implementation

{$R *.DFM}

{ TfmSortOrder }

procedure TfmSortOrder.FormCreate(Sender: TObject);
begin
  cmbOrder.ItemIndex := 0;
end;

function TfmSortOrder.OrderField: string;
begin
  case cmbOrder.ItemIndex of
    0: result := 'AUTHOR';
    1: result := 'ID_STR_INT';
  end;
end;

end.
